﻿Public Class FrmBuscarAl
    Private Sub FrmBuscarAl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim aux As Boolean = False
        For i = 0 To arralumno.Count - 1
            If txtRut.Text = arralumno(i).getrut() Then
                txtNombre.Text = arralumno(i).getnombre()
                txtNotas.Text = arralumno(i).getnotas()
                ComboBox1.Text = arralumno(i).getsexo()
                ComboBox2.Text = arralumno(i).getcarrera()
                NumericUpDown1.Value = arralumno(i).getedad()
                txtRut.Focus()
                aux = True
            End If
        Next
        If aux = False Then
            MsgBox("Rut no encontrado", MsgBoxStyle.Exclamation)
        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class